home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / qb2 / pro15 / grafix.pbs < prev    next >
Text File  |  1990-08-20  |  23KB  |  1,101 lines
  1. '
  2. 'Subprogram interface unit file for PowerBASIC
  3. '
  4.  
  5. $COMPILE UNIT
  6.  
  7. SUB Animate INLINE PUBLIC
  8.  
  9.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  10.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  11.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  12.   $INLINE &H5E,&HA,&H8B,&HF,&HC5
  13.   $INLINE &H56,&H6,&HB8,&H1C,&HEE
  14.   $INLINE &HCD,&H10,&H1F,&H5D
  15.  
  16. END SUB
  17.  
  18. SUB AudioOff INLINE PUBLIC
  19.  
  20.   $INLINE &HB8,&H80,&HEE,&HBB,&HA
  21.   $INLINE &H0,&HCD,&H10
  22.  
  23. END SUB
  24.  
  25. SUB ClearKey PUBLIC
  26.  
  27.   WHILE INKEY$ <> ""
  28.   WEND
  29.  
  30. END SUB
  31.  
  32. SUB ClearScreen INLINE PUBLIC
  33.  
  34.   $INLINE &HB8,&H0,&HEE,&HCD,&H10
  35.  
  36. END SUB
  37.  
  38. SUB ColorOff INLINE PUBLIC
  39.  
  40.   $INLINE &HB8,&H1,&HEE,&HBB,&H0
  41.   $INLINE &H0,&HCD,&H10
  42.  
  43. END SUB
  44.  
  45. SUB ColorOn INLINE PUBLIC
  46.  
  47.   $INLINE &HB8,&H1,&HEE,&HBB,&H1
  48.   $INLINE &H0,&HCD,&H10
  49.  
  50. END SUB
  51.  
  52. SUB CurrentPoint INLINE PUBLIC
  53.  
  54.   $INLINE &H55,&H89,&HE5,&HB8,&HA
  55.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  56.   $INLINE &HA,&H26,&H89,&H1D,&HC4
  57.   $INLINE &H7E,&H6,&H26,&H89,&HD
  58.   $INLINE &H5D
  59.  
  60. END SUB
  61.  
  62. SUB CursorOff INLINE PUBLIC
  63.  
  64.   $INLINE &HB8,&H17,&HEE,&HBB,&H0
  65.   $INLINE &H0,&HCD,&H10
  66.  
  67. END SUB
  68.  
  69. SUB CursorOn INLINE PUBLIC
  70.  
  71.   $INLINE &HB8,&H17,&HEE,&HBB,&H1
  72.   $INLINE &H0,&HCD,&H10
  73.  
  74. END SUB
  75.  
  76. SUB CursorStatus INLINE PUBLIC
  77.  
  78.   $INLINE &H55,&H89,&HE5,&HB8,&H18
  79.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  80.   $INLINE &HA,&H26,&H89,&H1D,&HC4
  81.   $INLINE &H7E,&H6,&H26,&H89,&HD
  82.   $INLINE &H5D
  83.  
  84. END SUB
  85.  
  86. SUB DrawBox INLINE PUBLIC
  87.  
  88.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  89.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  90.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  91.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  92.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  93.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  94.   $INLINE &HE,&HEE,&HCD,&H10,&H1F
  95.   $INLINE &H5D
  96.  
  97. END SUB
  98.  
  99. SUB DrawBoxC INLINE PUBLIC
  100.  
  101.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  102.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  103.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  104.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  105.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  106.   $INLINE &H22,&HEE,&HCD,&H10,&H1F
  107.   $INLINE &H5D
  108.  
  109. END SUB
  110.  
  111. SUB LowGraphics PUBLIC
  112.  
  113.   CALL GetSystem(0, Status%)
  114.   IF Status% <> &HDEAD THEN
  115.     SCREEN 0, 0, 0
  116.     WIDTH 80
  117.     PRINT "GRAFIX Driver Not Loaded!"
  118.     PRINT "Press Any Key To Continue . . ."
  119.     CALL WaitKey
  120.     END
  121.   END IF
  122.   SCREEN 0, 0, 0
  123.   WIDTH 80
  124.   CALL SetSystem(13)
  125.  
  126. END SUB
  127.  
  128. SUB MediumGraphics PUBLIC
  129.  
  130.   CALL GetSystem(0, Status%)
  131.   IF Status% <> &HDEAD THEN
  132.     SCREEN 0, 0, 0
  133.     WIDTH 80
  134.     PRINT "GRAFIX Driver Not Loaded!"
  135.     PRINT "Press Any Key To Continue . . ."
  136.     CALL WaitKey
  137.     END
  138.   END IF
  139.   SCREEN 0, 0, 0
  140.   WIDTH 80
  141.   CALL SetSystem(2)
  142.  
  143. END SUB
  144.  
  145. SUB HighGraphics PUBLIC
  146.  
  147.   CALL GetSystem(0, Status%)
  148.   IF Status% <> &HDEAD THEN
  149.     SCREEN 0, 0, 0
  150.     WIDTH 80
  151.     PRINT "GRAFIX Driver Not Loaded!"
  152.     PRINT "Press Any Key To Continue . . ."
  153.     CALL WaitKey
  154.     END
  155.   END IF
  156.   CALL GetSystem(12, Tandy11%)
  157.   IF Tandy11% = Tandy11.False% THEN
  158.     SCREEN 0, 0, 0
  159.     WIDTH 80
  160.     PRINT "TANDY11 Driver For The 640x200x16 Color Graphics Mode Not Loaded!"
  161.     PRINT "Press Any Key To Continue . . ."
  162.     CALL WaitKey
  163.     END
  164.   END IF
  165.   SCREEN 0, 0, 0
  166.   WIDTH 80
  167.   CALL SetSystem(11)
  168.  
  169. END SUB
  170.  
  171. SUB ExitGraphics PUBLIC
  172.  
  173.   CALL SetSystem(3)
  174.   SCREEN 0, 0, 0
  175.   WIDTH 80
  176.  
  177. END SUB
  178.  
  179. SUB ExtCircle INLINE PUBLIC
  180.  
  181.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  182.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  183.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  184.   $INLINE &H5E,&H6,&H8B,&H1F,&HB8
  185.   $INLINE &HF,&HEE,&HCD,&H10,&H1F
  186.   $INLINE &H5D
  187.  
  188. END SUB
  189.  
  190. SUB ExtCircleC INLINE PUBLIC
  191.  
  192.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  193.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  194.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  195.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  196.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  197.   $INLINE &H21,&HEE,&HCD,&H10,&H1F
  198.   $INLINE &H5D
  199.  
  200. END SUB
  201.  
  202. SUB ExtGet INLINE PUBLIC
  203.  
  204.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  205.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  206.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  207.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  208.   $INLINE &H5E,&H16,&H8B,&H1F,&HC5
  209.   $INLINE &H56,&H6,&HB8,&H15,&HEE
  210.   $INLINE &HCD,&H10,&H1F,&H5D
  211.  
  212. END SUB
  213.  
  214. SUB ExtLine INLINE PUBLIC
  215.  
  216.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  217.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  218.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  219.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  220.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  221.   $INLINE &HB,&HEE,&HCD,&H10,&H1F
  222.   $INLINE &H5D
  223.  
  224. END SUB
  225.  
  226. SUB ExtLineC INLINE PUBLIC
  227.  
  228.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  229.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  230.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  231.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  232.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  233.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  234.   $INLINE &H1E,&HEE,&HCD,&H10,&H1F
  235.   $INLINE &H5D
  236.  
  237. END SUB
  238.  
  239. SUB ExtPaint INLINE PUBLIC
  240.  
  241.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  242.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  243.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  244.   $INLINE &H5E,&H6,&H8B,&HF,&HC5
  245.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  246.   $INLINE &H10,&HEE,&HCD,&H10,&H1F
  247.   $INLINE &H5D
  248.  
  249. END SUB
  250.  
  251. SUB ExtPut INLINE PUBLIC
  252.  
  253.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  254.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  255.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  256.   $INLINE &H5E,&H6,&H8B,&H1F,&HC5
  257.   $INLINE &H56,&HA,&HB8,&H16,&HEE
  258.   $INLINE &HCD,&H10,&H1F,&H5D
  259.  
  260. END SUB
  261.  
  262. SUB ExtSound INLINE PUBLIC
  263.  
  264.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  265.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  266.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  267.   $INLINE &H5E,&H6,&H8B,&HF,&HC5
  268.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  269.   $INLINE &H81,&HEE,&HCD,&H10,&H1F
  270.   $INLINE &H5D
  271.  
  272. END SUB
  273.  
  274. SUB FillBox INLINE PUBLIC
  275.  
  276.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  277.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  278.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  279.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  280.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  281.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  282.   $INLINE &H11,&HEE,&HCD,&H10,&H1F
  283.   $INLINE &H5D
  284.  
  285. END SUB
  286.  
  287. SUB FillBoxC INLINE PUBLIC
  288.  
  289.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  290.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  291.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  292.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  293.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  294.   $INLINE &H23,&HEE,&HCD,&H10,&H1F
  295.   $INLINE &H5D
  296.  
  297. END SUB
  298.  
  299. SUB GetAspect INLINE PUBLIC
  300.  
  301.   $INLINE &H55,&H89,&HE5,&HB8,&H5
  302.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  303.   $INLINE &HA,&H26,&H89,&H1D,&HC4
  304.   $INLINE &H7E,&H6,&H26,&H89,&HD
  305.   $INLINE &H5D
  306.  
  307. END SUB
  308.  
  309. SUB GetBackColor INLINE PUBLIC
  310.  
  311.   $INLINE &H55,&H89,&HE5,&HB8,&H3
  312.   $INLINE &HEE,&HBB,&H3,&H0,&HCD
  313.   $INLINE &H10,&HC4,&H7E,&H6,&H26
  314.   $INLINE &H89,&HD,&H5D
  315.  
  316. END SUB
  317.  
  318. SUB GetCursor INLINE PUBLIC
  319.  
  320.   $INLINE &H55,&H89,&HE5,&HB8,&H1A
  321.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  322.   $INLINE &HA,&H26,&H89,&HD,&HC4
  323.   $INLINE &H7E,&H6,&H26,&H89,&H1D
  324.   $INLINE &H5D
  325.  
  326. END SUB
  327.  
  328. SUB GetInput (Prompt$, GS$) PUBLIC
  329.  
  330.   CALL CursorStatus(SaveCursor%, SaveSize%)
  331.   CALL CursorOn
  332.   CALL NormalCursor
  333.   CALL PrintStringX(Prompt$)
  334.   CALL GetCursor(R%, StartCol%)
  335.   CALL GetSystem(12, Tandy11%)
  336.   IF Tandy11% = Tandy11.True% THEN
  337.     Maximum% = 80 - StartCol% + 1
  338.   ELSE
  339.     Maximum% = 40 - StartCol% + 1
  340.   END IF
  341.   P% = 1
  342.   Inserts% = 0
  343.   Temp$ = SPACE$(Maximum%)
  344.   WHILE INKEY$ <> ""
  345.   WEND
  346.   DO
  347.     K$ = ""
  348.     WHILE K$ = ""
  349.       K$ = INKEY$
  350.     WEND
  351.     K% = ASC(RIGHT$(K$, 1))
  352.     WhatToDo% = 0
  353.     IF LEN(K$) = 1 THEN
  354.       SELECT CASE K%
  355.         CASE 8  'Back Space
  356.           P% = P% - 1
  357.           IF P% < 1 THEN P% = 1
  358.           Temp$ = LEFT$(Temp$, P% - 1) + RIGHT$(Temp$, LEN(Temp$) - P%) + " "
  359.           WhatToDo% = 2
  360.         CASE 13  'Enter
  361.           EXIT LOOP
  362.         CASE 27  'Escape
  363.           Temp$ = SPACE$(Maximum%)
  364.           P% = 1
  365.           WhatToDo% = 2
  366.         CASE 32 TO 126  'ASC 32 - 126
  367.           IF Inserts% = 0 THEN
  368.             MID$(Temp$, P%, 1) = K$
  369.             WhatToDo% = 1
  370.             P% = P% + 1
  371.             IF P% > Maximum% THEN
  372.               P% = 1
  373.               WhatToDo% = 2
  374.             END IF
  375.           END IF
  376.           IF Inserts% = 1 THEN
  377.             Temp$ = LEFT$(Temp$, P% - 1) + K$ + MID$(Temp$, P%, LEN(Temp$) - P%)
  378.             P% = P% + 1
  379.             IF P% > Maximum% THEN P% = 1
  380.             WhatToDo% = 2
  381.           END IF
  382.         CASE ELSE
  383.       END SELECT
  384.     END IF
  385.     IF LEN(K$) = 2 THEN
  386.       SELECT CASE K%
  387.         CASE 71  'Home
  388.           P% = 1
  389.         CASE 75  'Cursor Left
  390.           P% = P% - 1
  391.           IF P% < 1 THEN P% = 1
  392.         CASE 77  'Cursor Right
  393.           P% = P% + 1
  394.           IF P% > Maximum% THEN P% = Maximum%
  395.         CASE 79  'End
  396.           FOR X% = Maximum% TO 1 STEP -1
  397.             IF MID$(Temp$, X%, 1) <> " " THEN EXIT FOR
  398.           NEXT X%
  399.           P% = X% + 1
  400.           IF P% = Maximum% + 1 THEN P% = Maximum%
  401.         CASE 82  'Insert
  402.           IF Inserts% = 0 THEN
  403.             Inserts% = 1
  404.             CALL HalfCursor
  405.           ELSE
  406.             Inserts% = 0
  407.             CALL NormalCursor
  408.           END IF
  409.         CASE 83  'Delete
  410.           Temp$ = LEFT$(Temp$, P% - 1) + RIGHT$(Temp$, LEN(Temp$) - P%) + " "
  411.           WhatToDo% = 2
  412.         CASE ELSE
  413.       END SELECT
  414.     END IF
  415.     SELECT CASE WhatToDo%
  416.       CASE 0
  417.         CALL SetCursor(R%, (StartCol% + P% - 1))
  418.       CASE 1
  419.         CALL SetCursor(R%, (StartCol% + P% - 2))
  420.         CALL PrintStringX(K$)
  421.         CALL SetCursor(R%, (StartCol% + P% - 1))
  422.       CASE 2
  423.         CALL SetCursor(R%, StartCol%)
  424.         CALL PrintStringX(Temp$)
  425.         CALL SetCursor(R%, (StartCol% + P% - 1))
  426.     END SELECT
  427.   LOOP
  428.   FOR X% = Maximum% TO 1 STEP -1
  429.     IF MID$(Temp$, X%, 1) <> " " THEN EXIT FOR
  430.   NEXT X%
  431.   GS$ = LEFT$(Temp$, X%)
  432.   R% = R% + 1
  433.   IF R% > 25 THEN R% = 1
  434.   CALL SetCursor(R%, 1)
  435.   IF SaveCursor% = 0 THEN CALL CursorOff
  436.   IF SaveCursor% = 1 THEN CALL CursorOn
  437.   IF SaveSize% = 0 THEN CALL NormalCursor
  438.   IF SaveSize% = 1 THEN CALL HalfCursor
  439. END SUB
  440.  
  441. SUB GetPlotColor INLINE PUBLIC
  442.  
  443.   $INLINE &H55,&H89,&HE5,&HB8,&H3
  444.   $INLINE &HEE,&HBB,&H1,&H0,&HCD
  445.   $INLINE &H10,&HC4,&H7E,&H6,&H26
  446.   $INLINE &H89,&HD,&H5D
  447.  
  448. END SUB
  449.  
  450. SUB GetSystem INLINE PUBLIC
  451.  
  452.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  453.   $INLINE &HA,&H26,&H8B,&H1D,&HB8
  454.   $INLINE &H80,&HEE,&HCD,&H10,&HC4
  455.   $INLINE &H7E,&H6,&H26,&H89,&H5
  456.   $INLINE &H5D
  457.  
  458. END SUB
  459.  
  460. SUB GetTextColor INLINE PUBLIC
  461.  
  462.   $INLINE &H55,&H89,&HE5,&HB8,&H3
  463.   $INLINE &HEE,&HBB,&H2,&H0,&HCD
  464.   $INLINE &H10,&HC4,&H7E,&H6,&H26
  465.   $INLINE &H89,&HD,&H5D
  466.  
  467. END SUB
  468.  
  469. SUB GraphStatus INLINE PUBLIC
  470.  
  471.   $INLINE &H55,&H89,&HE5,&HB8,&H80
  472.   $INLINE &HEE,&HBB,&H1,&H0,&HCD
  473.   $INLINE &H10,&HC4,&H7E,&H6,&H26
  474.   $INLINE &H89,&H5,&H5D
  475.  
  476. END SUB
  477.  
  478. SUB HalfCursor INLINE PUBLIC
  479.  
  480.   $INLINE &HB8,&H17,&HEE,&HBB,&H3
  481.   $INLINE &H0,&HCD,&H10
  482.  
  483. END SUB
  484.  
  485. SUB LineRel INLINE PUBLIC
  486.  
  487.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  488.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  489.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  490.   $INLINE &HB8,&HD,&HEE,&HCD,&H10
  491.   $INLINE &H5D
  492.  
  493. END SUB
  494.  
  495. SUB LineRelC INLINE PUBLIC
  496.  
  497.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  498.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  499.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  500.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  501.   $INLINE &H20,&HEE,&HCD,&H10,&H1F
  502.   $INLINE &H5D
  503.  
  504. END SUB
  505.  
  506. SUB LineTo INLINE PUBLIC
  507.  
  508.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  509.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  510.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  511.   $INLINE &HB8,&HC,&HEE,&HCD,&H10
  512.   $INLINE &H5D
  513.  
  514. END SUB
  515.  
  516. SUB LineToC INLINE PUBLIC
  517.  
  518.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  519.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  520.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  521.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  522.   $INLINE &H1F,&HEE,&HCD,&H10,&H1F
  523.   $INLINE &H5D
  524.  
  525. END SUB
  526.  
  527. SUB MoveRel INLINE PUBLIC
  528.  
  529.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  530.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  531.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  532.   $INLINE &HB8,&H9,&HEE,&HCD,&H10
  533.   $INLINE &H5D
  534.  
  535. END SUB
  536.  
  537. SUB MoveTo INLINE PUBLIC
  538.  
  539.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  540.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  541.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  542.   $INLINE &HB8,&H8,&HEE,&HCD,&H10
  543.   $INLINE &H5D
  544.  
  545. END SUB
  546.  
  547. SUB Noise INLINE PUBLIC
  548.  
  549.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  550.   $INLINE &H5E,&HA,&H8B,&HF,&HC5
  551.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  552.   $INLINE &H5E,&HE,&H8B,&H1F,&HB8
  553.   $INLINE &H82,&HEE,&HCD,&H10,&H1F
  554.   $INLINE &H5D
  555.  
  556. END SUB
  557.  
  558. SUB NoiseBufOff INLINE PUBLIC
  559.  
  560.   $INLINE &HB8,&H80,&HEE,&HBB,&H9
  561.   $INLINE &H0,&HCD,&H10
  562.  
  563. END SUB
  564.  
  565. SUB NoiseBufOn INLINE PUBLIC
  566.  
  567.   $INLINE &HB8,&H80,&HEE,&HBB,&H8
  568.   $INLINE &H0,&HCD,&H10
  569.  
  570. END SUB
  571.  
  572. SUB NoiseOff INLINE PUBLIC
  573.  
  574. $INLINE &HB8,&H80,&HEE,&HBB,&H7
  575. $INLINE &H0,&HCD,&H10
  576.  
  577. END SUB
  578.  
  579. SUB NormalCursor INLINE PUBLIC
  580.  
  581.   $INLINE &HB8,&H17,&HEE,&HBB,&H2
  582.   $INLINE &H0,&HCD,&H10
  583.  
  584. END SUB
  585.  
  586. SUB PaletteUsing INLINE PUBLIC
  587.  
  588.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  589.   $INLINE &H56,&H6,&HB8,&H13,&HEE
  590.   $INLINE &HCD,&H10,&H1F,&H5D
  591.  
  592. END SUB
  593.  
  594. SUB Pause INLINE PUBLIC
  595.  
  596.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  597.   $INLINE &H6,&H26,&H8B,&H1D,&HB8
  598.   $INLINE &H83,&HEE,&HCD,&H10,&H5D
  599.  
  600. END SUB
  601.  
  602. SUB PlotPoint INLINE PUBLIC
  603.  
  604.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  605.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  606.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  607.   $INLINE &HB8,&H6,&HEE,&HCD,&H10
  608.   $INLINE &H5D
  609.  
  610. END SUB
  611.  
  612. SUB PlotPointC INLINE PUBLIC
  613.  
  614.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  615.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  616.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  617.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  618.   $INLINE &H1D,&HEE,&HCD,&H10,&H1F
  619.   $INLINE &H5D
  620.  
  621. END SUB
  622.  
  623. SUB PointColor INLINE PUBLIC
  624.  
  625.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  626.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  627.   $INLINE &H5E,&HA,&H8B,&H3F,&HB8
  628.   $INLINE &H7,&HEE,&HCD,&H10,&HC5
  629.   $INLINE &H5E,&H6,&H89,&H7,&H1F
  630.   $INLINE &H5D
  631.  
  632. END SUB
  633.  
  634. SUB PrintString(GS$) PUBLIC
  635.  
  636.   CALL PrintStringA(STRSEG(GS$), STRPTR(GS$), LEN(GS$), 1)
  637.  
  638. END SUB
  639.  
  640. SUB PrintStringX(GS$) PUBLIC
  641.  
  642.   CALL PrintStringA(STRSEG(GS$), STRPTR(GS$), LEN(GS$), 0)
  643.  
  644. END SUB
  645.  
  646. SUB PrintStringA INLINE
  647.  
  648.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  649.   $INLINE &H7E,&H6,&H8B,&H1D,&HC5
  650.   $INLINE &H7E,&HA,&H8B,&HD,&HC5
  651.   $INLINE &H7E,&HE,&H8B,&H15,&HC5
  652.   $INLINE &H7E,&H12,&H8E,&H1D,&HB8
  653.   $INLINE &H1B,&HEE,&HCD,&H10,&H1F
  654.   $INLINE &H5D
  655.  
  656. END SUB
  657.  
  658. SUB ResetPalette INLINE PUBLIC
  659.  
  660.   $INLINE &HB8,&H14,&HEE,&HCD,&H10
  661.  
  662. END SUB
  663.  
  664. SUB SetAspect INLINE PUBLIC
  665.  
  666.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  667.   $INLINE &HA,&H26,&H8B,&H1D,&HC4
  668.   $INLINE &H7E,&H6,&H26,&H8B,&HD
  669.   $INLINE &HB8,&H4,&HEE,&HCD,&H10
  670.   $INLINE &H5D
  671.  
  672. END SUB
  673.  
  674. SUB SetBackColor INLINE PUBLIC
  675.  
  676.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  677.   $INLINE &H6,&H26,&H8B,&HD,&HBB
  678.   $INLINE &H3,&H0,&HB8,&H2,&HEE
  679.   $INLINE &HCD,&H10,&H5D
  680.  
  681. END SUB
  682.  
  683. SUB SetCursor INLINE PUBLIC
  684.  
  685.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  686.   $INLINE &HA,&H26,&H8B,&HD,&HC4
  687.   $INLINE &H7E,&H6,&H26,&H8B,&H1D
  688.   $INLINE &HB8,&H19,&HEE,&HCD,&H10
  689.   $INLINE &H5D
  690.  
  691. END SUB
  692.  
  693. SUB SetPalette INLINE PUBLIC
  694.  
  695.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  696.   $INLINE &HA,&H26,&H8B,&H1D,&HC4
  697.   $INLINE &H7E,&H6,&H26,&H8B,&HD
  698.   $INLINE &HB8,&H12,&HEE,&HCD,&H10
  699.   $INLINE &H5D
  700.  
  701. END SUB
  702.  
  703. SUB SetPlotColor INLINE PUBLIC
  704.  
  705.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  706.   $INLINE &H6,&H26,&H8B,&HD,&HBB
  707.   $INLINE &H1,&H0,&HB8,&H2,&HEE
  708.   $INLINE &HCD,&H10,&H5D
  709.  
  710. END SUB
  711.  
  712. SUB SetSystem INLINE PUBLIC
  713.  
  714.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  715.   $INLINE &H6,&H26,&H8B,&H1D,&HB8
  716.   $INLINE &H80,&HEE,&HCD,&H10,&H5D
  717.  
  718. END SUB
  719.  
  720. SUB SetTextColor INLINE PUBLIC
  721.  
  722.   $INLINE &H55,&H89,&HE5,&HC4,&H7E
  723.   $INLINE &H6,&H26,&H8B,&HD,&HBB
  724.   $INLINE &H2,&H0,&HB8,&H2,&HEE
  725.   $INLINE &HCD,&H10,&H5D
  726.  
  727. END SUB
  728.  
  729. SUB SoundBufOff INLINE PUBLIC
  730.  
  731.   $INLINE &HB8,&H80,&HEE,&HBB,&H6
  732.   $INLINE &H0,&HCD,&H10
  733.  
  734. END SUB
  735.  
  736. SUB SoundBufOn INLINE PUBLIC
  737.  
  738.   $INLINE &HB8,&H80,&HEE,&HBB,&H5
  739.   $INLINE &H0,&HCD,&H10
  740.  
  741. END SUB
  742.  
  743. SUB SoundOff INLINE PUBLIC
  744.  
  745.   $INLINE &HB8,&H80,&HEE,&HBB,&H4
  746.   $INLINE &H0,&HCD,&H10
  747.  
  748. END SUB
  749.  
  750. SUB SpeakerOff INLINE PUBLIC
  751.  
  752.   $INLINE &HB8,&H2,&H80,&HCD,&H1A
  753.  
  754. END SUB
  755.  
  756. SUB SpeakerOn INLINE PUBLIC
  757.  
  758.   $INLINE &HB0,&H9F,&HE6,&HC0,&HB0
  759.   $INLINE &HBF,&HE6,&HC0,&HB0,&HDF
  760.   $INLINE &HE6,&HC0,&HB8,&H3,&H80
  761.   $INLINE &HCD,&H1A
  762.  
  763. END SUB
  764.  
  765. SUB WaitKey PUBLIC
  766.  
  767.   CALL ClearKey
  768.   WHILE INKEY$ = ""
  769.   WEND
  770.  
  771. END SUB
  772.  
  773. SUB XorPoint INLINE PUBLIC
  774.  
  775.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  776.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  777.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  778.   $INLINE &HB8,&H24,&HEE,&HCD,&H10
  779.   $INLINE &H5D
  780.  
  781. END SUB
  782.  
  783. SUB XorPointC INLINE PUBLIC
  784.  
  785.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  786.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  787.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  788.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  789.   $INLINE &H25,&HEE,&HCD,&H10,&H1F
  790.   $INLINE &H5D
  791.  
  792. END SUB
  793.  
  794. SUB XorLine INLINE PUBLIC
  795.  
  796.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  797.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  798.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  799.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  800.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  801.   $INLINE &H26,&HEE,&HCD,&H10,&H1F
  802.   $INLINE &H5D
  803.  
  804. END SUB
  805.  
  806. SUB XorLineC INLINE PUBLIC
  807.  
  808.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  809.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  810.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  811.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  812.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  813.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  814.   $INLINE &H27,&HEE,&HCD,&H10,&H1F
  815.   $INLINE &H5D
  816.  
  817. END SUB
  818.  
  819. SUB XorLineTo INLINE PUBLIC
  820.  
  821.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  822.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  823.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  824.   $INLINE &HB8,&H28,&HEE,&HCD,&H10
  825.   $INLINE &H5D
  826.  
  827. END SUB
  828.  
  829. SUB XorLineToC INLINE PUBLIC
  830.  
  831.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  832.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  833.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  834.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  835.   $INLINE &H29,&HEE,&HCD,&H10,&H1F
  836.   $INLINE &H5D
  837.  
  838. END SUB
  839.  
  840. SUB XorLineRel INLINE PUBLIC
  841.  
  842.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  843.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  844.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  845.   $INLINE &HB8,&H2A,&HEE,&HCD,&H10
  846.   $INLINE &H5D
  847.  
  848. END SUB
  849.  
  850. SUB XorLineRelC INLINE PUBLIC
  851.  
  852.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  853.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  854.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  855.   $INLINE &H5E,&H6,&H8B,&H17,&HB8
  856.   $INLINE &H2B,&HEE,&HCD,&H10,&H1F
  857.   $INLINE &H5D
  858.  
  859. END SUB
  860.  
  861. SUB XorDrawBox INLINE PUBLIC
  862.  
  863.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  864.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  865.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  866.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  867.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  868.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  869.   $INLINE &H2C,&HEE,&HCD,&H10,&H1F
  870.   $INLINE &H5D
  871.  
  872. END SUB
  873.  
  874. SUB XorDrawBoxC INLINE PUBLIC
  875.  
  876.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  877.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  878.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  879.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  880.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  881.   $INLINE &H2D,&HEE,&HCD,&H10,&H1F
  882.   $INLINE &H5D
  883.  
  884. END SUB
  885.  
  886. SUB XorFillBox INLINE PUBLIC
  887.  
  888.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  889.   $INLINE &H5E,&H12,&H8B,&HF,&HC5
  890.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  891.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  892.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  893.   $INLINE &H5E,&H16,&H8B,&H1F,&HB8
  894.   $INLINE &H2E,&HEE,&HCD,&H10,&H1F
  895.   $INLINE &H5D
  896.  
  897. END SUB
  898.  
  899. SUB XorFillBoxC INLINE PUBLIC
  900.  
  901.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  902.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  903.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  904.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  905.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  906.   $INLINE &H2F,&HEE,&HCD,&H10,&H1F
  907.   $INLINE &H5D
  908.  
  909. END SUB
  910.  
  911. SUB XorCircle INLINE PUBLIC
  912.  
  913.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  914.   $INLINE &H5E,&HE,&H8B,&H37,&HC5
  915.   $INLINE &H5E,&HA,&H8B,&H3F,&HC5
  916.   $INLINE &H5E,&H6,&H8B,&H1F,&HB8
  917.   $INLINE &H30,&HEE,&HCD,&H10,&H1F
  918.   $INLINE &H5D
  919.  
  920. END SUB
  921.  
  922. SUB XorCircleC INLINE PUBLIC
  923.  
  924.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  925.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  926.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  927.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  928.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  929.   $INLINE &H31,&HEE,&HCD,&H10,&H1F
  930.   $INLINE &H5D
  931.  
  932. END SUB
  933.  
  934. SUB Ellipse INLINE PUBLIC
  935.  
  936.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  937.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  938.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  939.   $INLINE &H5E,&H6,&H8B,&HF,&HC5
  940.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  941.   $INLINE &H32,&HEE,&HCD,&H10,&H1F
  942.   $INLINE &H5D
  943.  
  944. END SUB
  945.  
  946. SUB EllipseC INLINE PUBLIC
  947.  
  948.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  949.   $INLINE &H5E,&H16,&H8B,&H37,&HC5
  950.   $INLINE &H5E,&H12,&H8B,&H3F,&HC5
  951.   $INLINE &H5E,&HA,&H8B,&HF,&HC5
  952.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  953.   $INLINE &H5E,&HE,&H8B,&H1F,&HB8
  954.   $INLINE &H33,&HEE,&HCD,&H10,&H1F
  955.   $INLINE &H5D
  956.  
  957. END SUB
  958.  
  959. SUB XorEllipse INLINE PUBLIC
  960.  
  961.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  962.   $INLINE &H5E,&H12,&H8B,&H37,&HC5
  963.   $INLINE &H5E,&HE,&H8B,&H3F,&HC5
  964.   $INLINE &H5E,&H6,&H8B,&HF,&HC5
  965.   $INLINE &H5E,&HA,&H8B,&H1F,&HB8
  966.   $INLINE &H34,&HEE,&HCD,&H10,&H1F
  967.   $INLINE &H5D
  968.  
  969. END SUB
  970.  
  971. SUB XorEllipseC INLINE PUBLIC
  972.  
  973.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  974.   $INLINE &H5E,&H16,&H8B,&H37,&HC5
  975.   $INLINE &H5E,&H12,&H8B,&H3F,&HC5
  976.   $INLINE &H5E,&HA,&H8B,&HF,&HC5
  977.   $INLINE &H5E,&H6,&H8B,&H17,&HC5
  978.   $INLINE &H5E,&HE,&H8B,&H1F,&HB8
  979.   $INLINE &H35,&HEE,&HCD,&H10,&H1F
  980.   $INLINE &H5D
  981.  
  982. END SUB
  983.  
  984. SUB SetView INLINE PUBLIC
  985.  
  986.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  987.   $INLINE &H5E,&HE,&H8B,&HF,&HC5
  988.   $INLINE &H5E,&HA,&H8B,&H37,&HC5
  989.   $INLINE &H5E,&H6,&H8B,&H3F,&HC5
  990.   $INLINE &H5E,&H12,&H8B,&H1F,&HB8
  991.   $INLINE &H36,&HEE,&HCD,&H10,&H1F
  992.   $INLINE &H5D
  993.  
  994. END SUB
  995.  
  996. SUB GetView INLINE PUBLIC
  997.  
  998.   $INLINE &H55,&H89,&HE5,&H1E,&HB8
  999.   $INLINE &H37,&HEE,&HCD,&H10,&H89
  1000.   $INLINE &HD8,&HC5,&H5E,&H12,&H89
  1001.   $INLINE &H7,&HC5,&H5E,&HE,&H89
  1002.   $INLINE &HF,&HC5,&H5E,&HA,&H89
  1003.   $INLINE &H37,&HC5,&H5E,&H6,&H89
  1004.   $INLINE &H3F,&H1F,&H5D
  1005.  
  1006. END SUB
  1007.  
  1008. SUB ResetView INLINE PUBLIC
  1009.  
  1010. $INLINE &HB8,&H38,&HEE,&HCD,&H10
  1011.  
  1012. END SUB
  1013.  
  1014. SUB GetTandy11 INLINE PUBLIC
  1015.  
  1016.   $INLINE &H55,&H89,&HE5,&HB8,&H80
  1017.   $INLINE &HEE,&HBB,&HC,&H0,&HCD
  1018.   $INLINE &H10,&HC4,&H5E,&H6,&H26
  1019.   $INLINE &H89,&H7,&H5D
  1020.  
  1021. END SUB
  1022.  
  1023. SUB GetScreen INLINE PUBLIC
  1024.  
  1025.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  1026.   $INLINE &H56,&H6,&HB8,&H39,&HEE
  1027.   $INLINE &HCD,&H10,&H1F,&H5D
  1028.  
  1029. END SUB
  1030.  
  1031. SUB PutScreen INLINE PUBLIC
  1032.  
  1033.   $INLINE &H55,&H89,&HE5,&H1E,&HC5
  1034.   $INLINE &H56,&H6,&HB8,&H3A,&HEE
  1035.   $INLINE &HCD,&H10,&H1F,&H5D
  1036.  
  1037. END SUB
  1038.  
  1039. SUB SetActivePage INLINE PUBLIC
  1040.  
  1041.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  1042.   $INLINE &H6,&H26,&H8B,&H1F,&HB8
  1043.   $INLINE &H3D,&HEE,&HCD,&H10,&H5D
  1044.  
  1045. END SUB
  1046.  
  1047. SUB SetDisplayPage INLINE PUBLIC
  1048.  
  1049.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  1050.   $INLINE &H6,&H26,&H8B,&H1F,&HB8
  1051.   $INLINE &H3B,&HEE,&HCD,&H10,&H5D
  1052.  
  1053. END SUB
  1054.  
  1055. SUB GetActivePage INLINE PUBLIC
  1056.  
  1057.   $INLINE &H55,&H89,&HE5,&HB8,&H3E
  1058.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  1059.   $INLINE &H6,&H26,&H89,&H1D,&H5D
  1060.  
  1061. END SUB
  1062.  
  1063. SUB GetDisplayPage INLINE PUBLIC
  1064.  
  1065.   $INLINE &H55,&H89,&HE5,&HB8,&H3C
  1066.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  1067.   $INLINE &H6,&H26,&H89,&H1D,&H5D
  1068.  
  1069. END SUB
  1070.  
  1071. SUB PageCopy INLINE PUBLIC
  1072.  
  1073.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  1074.   $INLINE &HA,&H26,&H8B,&H37,&HC4
  1075.   $INLINE &H5E,&H6,&H26,&H8B,&H3F
  1076.   $INLINE &HB8,&H3F,&HEE,&HCD,&H10
  1077.   $INLINE &H5D
  1078.  
  1079. END SUB
  1080.  
  1081. SUB FastTimer INLINE PUBLIC
  1082.  
  1083.   $INLINE &H55,&H89,&HE5,&HC4,&H5E
  1084.   $INLINE &H6,&H26,&H8B,&H1F,&HB8
  1085.   $INLINE &H84,&HEE,&HCD,&H10,&H5D
  1086.  
  1087. END SUB
  1088.  
  1089. SUB ResetTimer INLINE PUBLIC
  1090.  
  1091.   $INLINE &HB8,&H85,&HEE,&HCD,&H10
  1092.  
  1093. END SUB
  1094.  
  1095. SUB GetTimer INLINE PUBLIC
  1096.  
  1097.   $INLINE &H55,&H89,&HE5,&HB8,&H86
  1098.   $INLINE &HEE,&HCD,&H10,&HC4,&H7E
  1099.   $INLINE &H6,&H26,&H89,&H1D,&H5D
  1100.  
  1101. END SUB